﻿Imports AccesoDatos

Public Class CatalogoImpresion
    Public Function ImprimeTickets(ByVal pstrLocal As String, ByVal pstrPedido As String) As DataSet
        Dim dsConsultaDatos As DataSet
        Dim objCom As New BaseDatos
        Dim Parametros(,) As Object = {{"@LOCAL", SqlDbType.VarChar, UCase(pstrLocal)}, _
                                       {"@PEDIDO", SqlDbType.VarChar, UCase(pstrPedido)}}
        dsConsultaDatos = objCom.ExecSPDataSetCP("SP_IMPRIMETICKETS", Parametros)
        Return dsConsultaDatos
    End Function


    Public Function ImprimeTicketsDetalles(ByVal pstrLocal As String, ByVal pstrPedido As String) As DataSet
        Dim dsConsultaDatos As DataSet
        Dim objCom As New BaseDatos
        Dim Parametros(,) As Object = {{"@LOCAL", SqlDbType.VarChar, UCase(pstrLocal)}, _
                                       {"@PEDIDO", SqlDbType.VarChar, UCase(pstrPedido)}}
        dsConsultaDatos = objCom.ExecSPDataSetCP("SP_IMPRIMETICKETS_DETALLES", Parametros)
        Return dsConsultaDatos
    End Function


    Public Function ActualizaImprimeTickets(ByVal pstrLocal As String, ByVal pstrPedido As String) As Integer
        Dim Resultado As Integer
        Dim objCom As New BaseDatos
        Dim Parametros(,) As Object = {{"@LOCAL", SqlDbType.VarChar, UCase(pstrLocal)}, _
                                       {"@PEDIDO", SqlDbType.VarChar, UCase(pstrPedido)}}
        Resultado = objCom.ExecSPIntegerCP("SP_ACTULIZA_IMPRESION", Parametros)
        Return Resultado
    End Function



End Class
